home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A).po
/
MOVE.SHAPE.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
572b
|
19 lines
10 REM ******************************
20 REM * MOVE.SHAPE *
30 REM * BY DAVID HARRIS *
40 REM * COPYRIGHT(C) 1990 *
50 REM * MINDCRAFT PUBL. CORP. *
60 REM * CONCORD, MA 01742 *
70 REM ******************************
80 HGR : HCOLOR= 3
90 FOR L = 0 TO 10
100 READ A: POKE 768 +L,A
110 NEXT L
120 DATA 1,0,4,0,14,101,214,191,77,4,0
130 POKE 232,0: POKE 233,3
140 SCALE= 1: ROT= 0
150 FOR X = 5 TO 250 STEP 5
160 XDRAW 1 AT X,100
170 FOR D = 1 TO 100: NEXT D
180 XDRAW 1 AT X,100
190 NEXT X